home *** CD-ROM | disk | FTP | other *** search
/ Computer Arts Interactif 42 / CA 42.iso / mac / PC / logiciels / Publication / QuarkPassport 5.0 Beta / Data.Cab / F3811_Pdfl40.dll / PSPROCSET / 17 < prev    next >
Text File  |  2001-08-01  |  5KB  |  245 lines
  1. %%BeginResource: procset pdflev15044
  2. %%Version: 4.0 1
  3. %%Copyright: Copyright 1987-1990 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, Level 1, with emulated separations (TN 5044)
  6. /_ColorSep5044? true dd
  7. currentscreen
  8. dup type /dicttype eq
  9. { /_defaulthalftone xdd
  10. pop pop
  11. }
  12. {
  13. 5 dict begin
  14. 1 [/HalftoneType /SpotFunction /Angle /Frequency ]
  15. { exch def } forall
  16. /_defaulthalftone currentdict
  17. end
  18. dd
  19. } ifelse
  20. /currentcolortransfer where
  21. { pop /_defaultcolortransfer [ currentcolortransfer ] dd }
  22. { /setcolortransfer {
  23. settransfer pop pop pop
  24. } bd
  25. /_defaultcolortransfer [currenttransfer dup dup dup] dd
  26. }
  27. ifelse
  28. /initialize {
  29. sep_ops begin
  30. 50 dict begin
  31. _defaulthalftone sethalftone
  32. } bd
  33. /terminate {
  34. end end
  35. } bd
  36. /pl {
  37. transform
  38. 0.25 sub round 0.25 add exch
  39. 0.25 sub round 0.25 add exch
  40. itransform
  41. } bd
  42. /m { _sa? { pl } if moveto } bd
  43. /l { _sa? { pl } if lineto } bd
  44. /c { _sa? { pl } if curveto } bd
  45. /setSA { /_sa? xdd } bd
  46. /AlmostFull?
  47. { dup maxlength exch length sub 2 le
  48. } bd
  49. /Expand
  50. { 1 index maxlength mul cvi dict
  51. dup begin exch { def } forall end
  52. } bd
  53. /xput
  54. { 3 2 roll
  55. dup 3 index known not
  56. { dup AlmostFull? { 1.5 Expand } if
  57. } if
  58. dup 4 2 roll put
  59. } bd
  60. /defineRes
  61. { _categories 1 index known not
  62. { /_categories _categories 2 index 10 dict xput store
  63. } if
  64. _categories exch 2 copy get 5 -1 roll 4 index xput put
  65. } bd
  66. /findRes {
  67. _categories exch get exch get
  68. } bd
  69. /ri/pop ld
  70. /L1setcolor {
  71. aload length
  72. dup 0 eq
  73. { pop .5 setgray }
  74. { dup 1 eq
  75. { pop setgray }
  76. { 3 eq
  77. { setrgbcolor }
  78. { setcmykcolor }
  79. ifelse }
  80. ifelse }
  81. ifelse
  82. } bind dd
  83. /_sfcs { } dd
  84. /_sscs { } dd
  85. /scn { sc } bd
  86. /SCN { SC } bd
  87. /rf {re f} bd
  88. /concattransferfuncs {
  89. [ 3 1 roll /exec load exch /exec load ] cvx
  90. } bd
  91. /concatandsettransfer {
  92. /_defaulttransfer load concattransferfuncs settransfer
  93. } bd
  94. /concatandsetcolortransfer {
  95. colorplate 0 eq
  96. {
  97. _defaultcolortransfer aload pop
  98. 8 -1 roll 5 -1 roll concattransferfuncs 7 1 roll
  99. 6 -1 roll 4 -1 roll concattransferfuncs 5 1 roll
  100. 4 -1 roll 3 -1 roll concattransferfuncs 3 1 roll
  101. concattransferfuncs
  102. setcolortransfer
  103. } if
  104. colorplate 1 ge colorplate 4 le and
  105. {
  106. 4 colorplate sub index 4 { exch pop } repeat
  107. concatandsettransfer
  108. } if
  109. colorplate 5 ge
  110. {
  111. 0 index 4 { exch pop } repeat
  112. concatandsettransfer
  113. } if
  114. } bd
  115. /tn5044sethalftone
  116. {
  117. begin
  118. HalftoneType 5 eq
  119. { [/Default /Cyan /Magenta /Yellow /Black /Default /Default /Default]
  120. colorplate get
  121. here not {
  122. /Default here not { currentdict } if
  123. } if
  124. }
  125. { currentdict }
  126. ifelse
  127. end
  128. begin
  129. /TransferFunction here
  130. {
  131. concatandsettransfer
  132. currentdict dup length dict
  133. begin
  134. {
  135. 1 index /TransferFunction ne { def } { pop pop } ifelse
  136. } forall
  137. currentdict
  138. end
  139. }
  140. {
  141. currentdict
  142. } ifelse
  143. end
  144. sethalftone
  145. } bd
  146. /gs
  147. {
  148. begin
  149. /SA here { /_sa? xdd } if
  150. /OP here { /_OP? xdd } if
  151. /op here
  152. { /_op? xdd }
  153. { /OP here { /_op? xdd } if }
  154. ifelse
  155. /TR here
  156. {
  157. dup xcheck
  158. { concatandsettransfer }
  159. { aload pop concatandsetcolortransfer }
  160. ifelse
  161. } if
  162. /HT here { tn5044sethalftone } if
  163. /FL here { i } if
  164. currentdict gsDI
  165. end
  166. } bd
  167. /_sfc
  168. {
  169. _fp null eq
  170. { _fcs type /arraytype eq
  171. {_fcs 0 get /Separation eq
  172. {
  173. _fcs 1 get /All eq
  174. {
  175. _fc aload pop 1 exch sub
  176. /setseparationgray where pop begin setseparationgray end
  177. }
  178. {
  179. 1 _fcs 3 get exec _fcs 1 get
  180. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  181. _fc aload pop
  182. /setcustomcolor where pop begin setcustomcolor end
  183. }
  184. ifelse
  185. }
  186. { _fc L1setcolor }
  187. ifelse
  188. }
  189. { _fc L1setcolor }
  190. ifelse
  191. }
  192. { _fc L1setcolor }
  193. ifelse
  194. _op? setoverprint
  195. } bind dd
  196. /_ssc
  197. {
  198. _sp null eq
  199. { _scs type /arraytype eq
  200. {_scs 0 get /Separation eq
  201. {
  202. _scs 1 get /All eq
  203. {
  204. _sc aload pop 1 exch sub
  205. /setseparationgray where pop begin setseparationgray end
  206. }
  207. {
  208. 1 _scs 3 get exec _scs 1 get
  209. /findcmykcustomcolor where pop begin findcmykcustomcolor end
  210. _sc aload pop
  211. /setcustomcolor where pop begin setcustomcolor end
  212. }
  213. ifelse
  214. }
  215. { _sc L1setcolor }
  216. ifelse
  217. }
  218. { _sc L1setcolor }
  219. ifelse
  220. }
  221. { _sc L1setcolor }
  222. ifelse
  223. _OP? setoverprint
  224. } bind dd
  225. /f {
  226. { { sfc fill }
  227. {gsave sfc fill grestore clip newpath icl ilp}
  228. {gsave sfc fill grestore eoclip newpath icl ilp}
  229. } _doClip get exec
  230. } bd
  231. /f* {
  232. { { sfc eofill }
  233. {gsave sfc eofill grestore clip newpath icl ilp}
  234. {gsave sfc eofill grestore eoclip newpath icl ilp}
  235. } _doClip get exec
  236. } bd
  237. /S {
  238. { { ssc stroke }
  239. {gsave ssc stroke grestore clip newpath icl ilp}
  240. {gsave ssc stroke grestore eoclip newpath icl ilp}
  241. } _doClip get exec
  242. } bd
  243. /rf {re f} bd
  244. %%EndResource
  245.